home *** CD-ROM | disk | FTP | other *** search
/ Teach Your Children: Road Construction Ahead / Teach Your Children: Road Construction Ahead.iso / pc / rca / rca.exe / rca.DXR / 00001.ls next >
Encoding:
Text File  |  1996-07-18  |  681 b   |  27 lines
  1. on createCDpath volumeName, diskIDfilePath
  2.   global gCDpath
  3.   if the machineType = 256 then
  4.     openXLib(the pathName & "fileio.dll")
  5.     repeat with i = 67 to 90
  6.       set drive to numToChar(i)
  7.       set fullPath to string(drive & ":\" & diskIDfilePath)
  8.       set myFile to FileIO(mnew, "read", fullPath)
  9.       if objectp(myFile) then
  10.         myFile(mdispose)
  11.         return drive & ":"
  12.         exit
  13.       end if
  14.     end repeat
  15.     return 0
  16.   else
  17.     set fullPath to volumeName & ":" & diskIDfilePath
  18.     set myFile to FileIO(mnew, "read", fullPath)
  19.     if objectp(myFile) then
  20.       myFile(mdispose)
  21.       return volumeName & ":"
  22.       exit
  23.     end if
  24.     return 0
  25.   end if
  26. end
  27.